Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClrText
0A~Z
0X
Locate 2,2,"-=GET THE NUMBERS=-"
Locate 2,4,"BY:MARCUS LUNDSTROM 1997"
Locate 6,7,"PRESS [EXE]"
Do:LpWhile Getkey31
ClrText
Locate 1,6,"---------------------"
Locate 1,7,"TIME:"
Locate 10,7,"SCORE:"
5A
5B
0E
20F
Lbl 1
Int 20Ran#+1C
Int 4Ran#+1D
E+1E
Lbl 0
F-1F
If F=0
Then Goto 3
IfEnd
Locate 16,7,S
Locate 6,7,F
Locate C,D,E
Locate 6,7," "
Locate A,B,"*"
If Getkey=38 And A>1
Then A-1A
Locate A+1,B," "
IfEnd
If Getkey=27 And A<21:Then A+1A
Locate A-1,B," "
IfEnd
If Getkey=28 And B>1
Then B-1B
Locate A,B+1," "
IfEnd
If Getkey=37 And B<5
Then B+1B
Locate A,B-1," "
IfEnd
If A=C And B=D
Then FxEJ
S+JS
20F
E=2Goto 2
Goto 1
IfEnd
If A=O And B=N
Then Goto 3
IfEnd
If A=Q And B=P
Then Goto 3
IfEnd
If A=T And B=R
Then Goto 3
IfEnd
If A=V And B=U
Then Goto 3
IfEnd
Goto 0
Lbl 2
X+1X
If X=5
Then Locate 6,4,"-=YOU WIN=-"
Goto 4
IfEnd
Locate 5,4,"-=NEXT LEVEL=-"
Locate 5,4," "
M+1M
Goto 5
Lbl 3
Locate 5,4,"-=GAME OVER=-"
Goto 4
Lbl 5
0E
If M=1
Then Int 4Ran#+1N
Int 20Ran#+1O
Locate O,N,"#"
IfEnd
If M=2
Then Int 4Ran#+1P
Int 20Ran#+1Q
Locate Q,P,"#"
IfEnd
If M=3
Then Int 4Ran#+1R
Int 20Ran#+1T
Locate T,R,"#"
IfEnd
If M=4
Then Int 4Ran#+1U
Int 20Ran#+1V
Locate V,U,"#"
Goto 1
IfEnd
Goto 1
Lbl 4